home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Sounds / SpeechLib 3.0 / Speech.asm < prev    next >
Encoding:
Assembly Source File  |  1986-05-21  |  18.5 KB  |  515 lines  |  [TEXT/ttxt]
  1. ;This is the source code for SpeechLib, a machine language library
  2. ;for accessing MacinTalk from within Microsoft BASIC
  3.  
  4. ;Kevin J. Willey
  5.  
  6. ;15 March 1986
  7. ;Version 3.0a
  8.  
  9. ;Provides access to all of MacinTalk
  10. ;+ Translation function to convert English to Phonemes
  11. ;+ Command to change all parameters back to defaults
  12.  
  13. ;|=========================================================================|
  14. ;|    BASIC Syntax                                                         |
  15. ;|=========================================================================|
  16. ;|    Speech 1[,"Exception Filename"]           calls SpeechOn             |
  17. ;|     if Filename='noReader', then only Phonetic input is allowed.        |
  18. ;|-------------------------------------------------------------------------|
  19. ;|    Speech 2,"Text to Speak"                  calls Reader and MacinTalk |
  20. ;|     unless Phonetic input was specified then calls only Macintalk       |
  21. ;|-------------------------------------------------------------------------|
  22. ;|    Speech 3                                  calls SpeechOff            |
  23. ;|-------------------------------------------------------------------------|
  24. ;|    Speech 4,RATE     (85 <= RATE  <= 425)    calls SpeechRate           |
  25. ;|-------------------------------------------------------------------------|
  26. ;|    Speech 5,PITCH    (65 <= PITCH <= 500)    calls SpeechPitch          |
  27. ;|-------------------------------------------------------------------------|
  28. ;|    Speech 6,MODE      MODE=0:Natural         calls SpeechPitch          |
  29. ;|                           =1:Robotic          (but sets MODE)           |
  30. ;|-------------------------------------------------------------------------|
  31. ;|    Speech 7,SEX       reserved for future implementation                |
  32. ;|-------------------------------------------------------------------------|
  33. ;|    Speech 8,LANGUAGE  reserved for future implementation                |
  34. ;|-------------------------------------------------------------------------|
  35. ;|    Speech 9           sets all parameters back to defaults              |
  36. ;|-------------------------------------------------------------------------|
  37. ;|    Speech 10,"English to Translate",Phoneme$                            |
  38. ;|-------------------------------------------------------------------------|
  39. ;|    Speech 11          pronounces infostring                             |
  40. ;|=========================================================================|
  41.  
  42.  
  43. ;External References (these are the routines in SpeechAsm.Rel)
  44. ;~~~~~~~~~~~~~~~~~~~
  45. XREF    SpeechOn        ;open driver and exception file
  46. XREF    MacinTalk       ;pronounce phonemes
  47. XREF    Reader          ;translate English to phonemes
  48. XREF    SpeechOff       ;close the driver and clean up memory
  49. XREF    SpeechRate      ;set the speaking rate
  50. XREF    SpeechPitch     ;set the baseline pitch and/or mode
  51.  
  52.  
  53.  
  54. ;TRAP calls
  55. ;~~~~~~~~~~
  56. .TRAP    _NewHandle    $A122   ;INSIDE MACINTOSH (promo ed.) lists $A022
  57. .TRAP    _DisposHandle    $A023   
  58. .TRAP    _BlockMove    $A02E
  59. .TRAP    _CmpString    $A03C
  60. .TRAP    _PtrToHand    $A9E3
  61. .TRAP    _GetHandleSize    $A025
  62.  
  63.  
  64. ;jump table for BASIC routines {pointed to by a5}
  65. ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  66. GetNextLibArg    EQU $2A    ;retrieves next argument from input list
  67. IntegerArg    EQU $32    ;converts argument into 16 bit signed integer
  68. BasicError    EQU $42    ;generates error code indicated by d2
  69. AllocString    EQU $72    ;creates space for a string
  70. AllocTempDesc    EQU $7A    ;generates a temporary string desc for a string
  71. FreeTempDesc    EQU $82    ;frees temporary string descriptors from memory
  72. LoadStringDesc    EQU $8A    ;loads contents of string descriptor in registers
  73. AssignString    EQU $92    ;assigns a temporary string to a string variable
  74.  
  75.  
  76.  
  77. ;SpeechLib Routines
  78.  
  79. ;##########################################################################
  80. Speech:
  81.  
  82. ;----- Parse the Function Number ------------------------------------------
  83. ;      ~~~~~~~~~~~~~~~~~~~~~~~~~    
  84. ;Get the input argument from BASIC and branch to the correct code
  85.  
  86.     JSR    GetIntegerArg    ;Comparison Table to parse chosen function
  87.     CMP.B    #1,d3
  88.     BEQ    InitSpeech
  89.     CMP.B    #2,d3
  90.     BEQ    Talk
  91.     CMP.B    #3,d3
  92.     BEQ    QuitSpeech
  93.     CMP.B    #4,d3
  94.     BEQ    SetRate
  95.     CMP.B    #5,d3
  96.     BEQ    SetPitch
  97.     CMP.B    #6,d3
  98.     BEQ    SetMode
  99.     CMP.B    #7,d3
  100.     BEQ    SetSex
  101.     CMP.B    #8,d3
  102.     BEQ    SetLanguage
  103.     CMP.B    #9,d3
  104.     BEQ    SetDefault
  105.     CMP.B    #10,d3
  106.     BEQ    Translate
  107.     CMP.B    #11,d3
  108.     BEQ    GiveInfo
  109.     MOVE.L    #9,d2           ;"SUBSCRIPT OUT-OF-RANGE" error preloaded
  110.     BRA    ErrorReport     ;report error
  111. ;##########################################################################
  112.  
  113.  
  114. ;##########################################################################
  115. InitSpeech:
  116.  
  117. ;----- Load the Speech Driver and Speech Globals --------------------------
  118. ;      ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  119.  
  120.     JSR    GetNextLibArg(a5)   ;get argument from BASIC
  121.     CMP.B    #0,d0               ;check if end of argument list
  122.     BEQ    NoRules             ;if no argument then use default rules
  123.     BSR    ParseStringArg      ;move string descriptor into regs.
  124.     BSR    GenerateFilename    ;convert BASIC string to STR255
  125.     BRA    OpenDriver
  126.  
  127. NoRules:
  128. ;  use default pronunciation rules
  129.     LEA    ExceptionFile,a1
  130.     MOVE.L    #0,(a1)
  131.         
  132. OpenDriver:
  133.  
  134. ;FUNCTION SpeechOn (ExceptionFile:STR255; VAR theSpeech:SpeechHandle):
  135. ;                   SpeechErr;
  136.     
  137.     CLR.W    -(SP)          ;clear space for result code
  138.     PEA    ExceptionFile  ;load Exception File
  139.     PEA    theSpeech      ;load speech globals
  140.     JSR    SpeechOn       ;jump to driver open routine
  141.     MOVE.W    (SP)+,d0       ;check resulting error code
  142.     MOVE.L    #7,d2          ;d2 pre-loaded with "OUT OF MEMORY" error
  143.     CMP.W    #0,d0          ;if error code=0 then open worked
  144.     BNE    ErrorReport    ;"OUT OF HEAP SPACE" error pre-loaded in d2
  145.     BRA    CloseItUp      ;Return to BASIC
  146. ;##########################################################################
  147.  
  148.  
  149. ;##########################################################################
  150. Talk:
  151.  
  152. ;----- Check for English or Phonetic Input --------------------------------
  153. ;      ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  154. ;PhonemeFlag was either set or cleared depending on the exception file used
  155.  
  156.     LEA    PhonemeFlag,a1
  157.     TST.B    (a1)        ;if Phoneme flag is clear then convert
  158.     BEQ    English        ;English to Phonemes
  159.  
  160.  
  161. Phonemes:
  162.     BSR    GenPHandle    ;Create a handle and fill it with phonemes
  163.     BSR    Pronounce    ;Pass the phonemes to MacinTalk for speech    
  164.     BRA    CleanMem    ;Clean Up
  165.  
  166.  
  167. English:
  168.     BSR    GenEHandle    ;Create an Empty Handle    
  169.     BSR    Read        ;Fill with translated English phonemes
  170.     BSR    Pronounce    ;Pass the phonemes to MacinTalk for speech
  171.     BRA    CleanMem    ;Clean Up
  172.  
  173.  
  174. ;*********************** Subroutines for Talking ***************************
  175. ;***************************************************************************
  176.  
  177. ;----- Generate a handle to the input Phonetic string ---------------------
  178. ;      ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  179. GenPHandle:
  180.  
  181. ;FUNCTION PtrToHandle (srcPtr:Ptr; VAR dstHndl:Handle; size:LongInt):OSErr;
  182. ;on Input  : a0=srcPtr, a1=dstHndl, d0=size
  183. ;on Output : a1=dstHndl, d0=result code
  184.  
  185.     BSR    GetStringArg    ;get input string
  186.     MOVE.L    a3,a0        ;set up registers for _PtrToHand conversion
  187.     MOVE.L    d2,d0
  188. Info:    MOVE.L    #7,d2        ;pre-load an "OUT OF MEMORY" error
  189.     _PtrToHand        ;create a handle to the Phonemes
  190.     BMI    ErrorReport    ;report error
  191.     LEA    phHandle,a1    ;copy handle into phHandle
  192.     MOVE.L    a0,(a1)
  193.     RTS
  194.  
  195. ;----- Generate a handle for the translated English text ------------------
  196. ;      ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  197. GenEHandle:
  198.  
  199. ;FUNCTION NewHandle (logicalSize:Size):Handle
  200. ;on Input  : d0=logicalSize
  201. ;on Output : a0=Handle, d0=result code
  202.     
  203.     MOVEQ    #0,d0         ;set up empty handle
  204.     _NewHandle            ;allocate handle for reader to fill 
  205.                               ;with phonemes (output:a0 = the handle)
  206.     LEA    phHandle,a1   
  207.     MOVE.L    a0,(a1)       ;save handle in phHandle
  208.     RTS
  209.  
  210. ;----- Translate the English text ------------------------------------------
  211. ;      ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  212. Read:
  213.  
  214. ;FUNCTION Reader (theSpeech:SpeechHandle; EnglishInput:Ptr
  215. ;           InputLength:LongInt; PhoneticOutput:Handle):SpeechErr;
  216.  
  217.     CLR.W    -(SP)           ;clear space for result
  218.     MOVE.L    theSpeech,-(SP) ;load speech globals
  219.     BSR    GetStringArg    ;Get text to be spoken from BASIC
  220.     MOVE.L    a3,-(SP)        ;load Ptr to string
  221.     MOVE.L    d2,-(SP)        ;load String length
  222.     MOVE.L    phHandle,-(SP)  ;we just allocated this handle for phonemes
  223.     JSR    Reader          ;do translation of English to phonemes
  224.     MOVE.W    (SP)+,d0        ;get resulting error code
  225.     MOVE.L    #7,d2           ;"OUT OF HEAP SPACE" error pre-loaded in d2
  226.     CMP.W    #0,d0           ;if error code=0 then Reader worked
  227.     BNE    ErrorReport     ;report error
  228.     RTS
  229.  
  230.  
  231. ;----- Pronounce a string of Phonemes -------------------------------------
  232. ;      ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  233. Pronounce:
  234.  
  235. ;now feed the phonemes to Macintalk
  236. ;FUNCTION MacinTalk (theSpeech:SpeechHandle; Phonemes:Handle):SpeechErr
  237.     
  238.     CLR.W    -(SP)           ;space for result code
  239.     MOVE.L    theSpeech,-(SP) ;load speech globals
  240.     MOVE.L    phHandle,-(SP)  ;load handle to phonemes
  241.     JSR    MacinTalk       ;say it
  242.     MOVE.W    (SP)+,d0        ;get result code
  243.     MOVE.L    #3,d2           ;"DEVICE UNAVAILABLE" error preloaded in d2
  244.     CMP.B    #0,d0           ;if error code=0 then MacinTalk worked
  245.     BNE    ErrorReport     ;report error
  246.     RTS
  247.  
  248.  
  249. ;----- Dispose of memory blocks -------------------------------------------
  250. ;      ~~~~~~~~~~~~~~~~~~~~~~~~
  251. CleanMem:
  252.  
  253. ;PROCEDURE DisposHandle (h:Handle)
  254. ;on Input  : a0=handle
  255.     MOVE.L    phHandle,a0     ;_DisposHandle expects input in a0
  256.     _DisposHandle           ;deallocate handle to free up memory
  257.     BRA CloseItUp           ;return to BASIC
  258. ;##########################################################################
  259.  
  260.  
  261. ;##########################################################################
  262. QuitSpeech:
  263.  
  264. ;------ Clean up memory and leave -----------------------------------------
  265. ;       ~~~~~~~~~~~~~~~~~~~~~~~~~
  266. ;PROCEDURE SpeechOff (theSpeech:SpeechHandle)
  267.  
  268.     MOVE.L    theSpeech,-(SP) ;handle to speech globals
  269.     JSR    SpeechOff       ;close it up
  270.     MOVE.L    #0,d0           ;exit with 0 in d0 makes code purgeable
  271.                             ;          1 in d0 makes code resident
  272.     RTS
  273. ;##########################################################################
  274.  
  275.  
  276. ;##########################################################################
  277. SetRate:
  278.  
  279. ;------ Set the speaking rate ---------------------------------------------
  280. ;       ~~~~~~~~~~~~~~~~~~~~~
  281. ;PROCEDURE SpeechRate (theSpeech:SpeechHandle; theRate:INTEGER);
  282.  
  283.     BSR    GetIntegerArg   ;Get user input RATE {returned in d3}
  284.     MOVE.L    #9,d2           ;"SUBSCRIPT OUT-OF-RANGE" error pre-loaded
  285.     CMP.W    #85,d3          ;check lower bound
  286.     BLT    ErrorReport     ;report error
  287.     CMP.W    #425,d3         ;check upper bound
  288.     BGT    ErrorReport     ;report error
  289.     MOVE.L    theSpeech,-(SP) ;load speech globals
  290.     MOVE.W    d3,-(SP)        ;load RATE - {RATE is contained in d3...
  291.     JSR    SpeechRate      ;set the RATE    
  292.     BRA    CloseItUp       ;return to BASIC
  293. ;##########################################################################
  294.  
  295. ;##########################################################################
  296. SetPitch:
  297.  
  298. ;------ Set the baseline pitch --------------------------------------------
  299. ;       ~~~~~~~~~~~~~~~~~~~~~~
  300. ;PROCEDURE SpeechPitch (theSpeech:SpeechHandle; thePitch:INTEGER;
  301. ;            theMode:FOMode);    
  302. ;     - theMode is NoChange in order to only affect PITCH
  303.  
  304.     BSR    GetIntegerArg   ;Get user input PITCH {returned in d3}
  305.     MOVE.L    #9,d2           ;"SUBSCRIPT OUT-OF-RANGE" error preloaded
  306.     CMP.W    #65,d3          ;check lower bound
  307.     BLT    ErrorReport     ;report error
  308.     CMP.W    #500,d3         ;check upper bound
  309.     BGT    ErrorReport     ;report error
  310.     MOVE.L    theSpeech,-(SP) ;speech globals
  311.     MOVE.W    d3,-(SP)        ;Pitch
  312.     MOVE.B    #2,-(SP)        ;Specify 'NoChange' for the MODE
  313.     JSR    SpeechPitch     ;change SpeechPitch
  314.     BRA    CloseItUp       ;return to BASIC
  315. ;##########################################################################
  316.  
  317.  
  318. ;##########################################################################
  319. SetMode:
  320.  
  321. ;------ Set the speech mode -----------------------------------------------
  322. ;       ~~~~~~~~~~~~~~~~~~~
  323. ;PROCEDURE SpeechPitch (theSpeech:SpeechHandle; thePitch:INTEGER;
  324. ;            theMode:FOMode);
  325. ;  set PITCH out of range and PITCH will default to previous value
  326.     
  327.     BSR    GetIntegerArg   ;Get user selected MODE {returned in d3}
  328.     MOVE.L    #9,d2           ;"SUBSCRIPT OUT-OF-RANGE" error preloaded
  329.     CMP.B    #1,d3           ;check upper bound
  330.     BGT    ErrorReport     ;report error
  331.     MOVE.L    theSpeech,-(SP) ;speech globals
  332.     MOVE.W    #0,-(SP)        ;PITCH out of range so no change to SpeechPitch    
  333.     MOVE.B    d3,-(SP)        ;set MODE - MODE is the ordinality of the 
  334.                             ;elements of the Pascal data type F0Mode.
  335.     JSR    SpeechPitch     ;set the MODE
  336.     BRA    CloseItUp       ;return to BASIC    
  337. ;##########################################################################
  338.  
  339.     
  340. ;##########################################################################
  341. SetSex:
  342.  
  343. ;------ Set the speech sex -------------------------------------------------
  344. ;       ~~~~~~~~~~~~~~~~~~
  345. ;PROCEDURE SpeechSex (theSpeech:SpeechHandle; theSex:SEX);
  346.     
  347.     BRA    CloseItUp       ;return to BASIC    
  348. ;##########################################################################
  349.  
  350.  
  351. ;##########################################################################
  352. SetLanguage:
  353.  
  354. ;------ Set the speech language --------------------------------------------
  355. ;       ~~~~~~~~~~~~~~~~~~~~~~~
  356. ;PROCEDURE SpeechLanguage (theSpeech:SpeechHandle; ?:?);
  357.     
  358.     BRA    CloseItUp       ;return to BASIC    
  359. ;##########################################################################
  360.  
  361.  
  362. ;##########################################################################
  363. SetDefault:
  364.     MOVE.L    theSpeech,-(SP)    ;load speech globals
  365.     MOVE.W    #150,-(SP)    ;load RATE
  366.     JSR    SpeechRate    ;set the RATE    
  367.     MOVE.L    theSpeech,-(SP) ;load speech globals
  368.     MOVE.W    #110,-(SP)    ;load PITCH
  369.     MOVE.B    #0,-(SP)    ;load MODE
  370.     JSR    SpeechPitch    ;set the PITCH and the MODE
  371.     BRA    CloseItUp
  372. ;##########################################################################
  373.  
  374.  
  375. ;##########################################################################
  376. Translate:
  377.  
  378. ;------ Input English and Output Phonetic code -----------------------------
  379. ;       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  380.     LEA    PhonemeFlag,a1    ;if Phoneme flag is clear then convert
  381.     TST.B    (a1)        ;English to Phonemes, else leave and do
  382.     BNE    CloseItUp    ;nothing
  383.                 
  384.     BSR    GenEHandle        ;create empty handle for phonemes
  385.     BSR    Read            ;convert English to Phonemes
  386.     MOVE.L    phHandle,a0        ;set up regs. for _GetHandleSize
  387.     _GetHandleSize            ;get length of Phoneme string
  388.     MOVE.W    d0,d2            ;use same length for AllocString
  389.     JSR    AllocString(a5)        ;create an empty string
  390.     MOVE.L    a2,a1            ;set up regs. for _BlockMove
  391.     MOVE.L    (a0),a0            ;de-reference Phoneme handle
  392.     _BlockMove            ;copy Phonemes to empty string
  393.     JSR    AllocTempDesc(a5)    ;create a string desc. for string
  394.     MOVE.L    a3,a1            ;save pointer to new string desc.
  395.     JSR    GetNextLibArg(a5)    ;get string var from BASIC
  396.     MOVE.L    #13,d2            ;"TYPE MISMATCH" error preloaded
  397.     CMP.B    #2,d0            ;only string arguments allowed
  398.     BNE    ErrorReport        ;report error
  399.     MOVE.L    a2,a3            ;set up regs. for AssignString
  400.     MOVE.L    a1,a2
  401.     JSR    AssignString(a5)    ;assign string desc. to string var
  402.     BRA    CleanMem        ;clean up memory and return to BASIC    
  403. ;##########################################################################
  404.  
  405.  
  406. ;##########################################################################
  407. GiveInfo:
  408.     LEA    InfoString,a0
  409.     MOVE.L    #100,d0
  410.     BSR    Info
  411.     BSR    Pronounce    
  412.     BRA    CleanMem
  413. ;##########################################################################
  414.  
  415.     
  416. ;LOCAL SUBROUTINES
  417. ;**************************************************************************
  418.  
  419. ;----- Subroutines for parsing arguments ----------------------------------
  420.  
  421. GetIntegerArg:
  422.     JSR    GetNextLibArg(a5) ;get argument from BASIC
  423.     MOVE.L    #13,d2            ;"TYPE MISMATCH" error preloaded
  424.     CMP.B    #3,d0             ;only numeric arguments allowed
  425.                               ; {d0 contains argument type}
  426.     BLT    ErrorReport       ;report error
  427.     JSR    IntegerArg(a5)    ;16 bit signed integer now in d3
  428.     MOVE.L    #9,d2             ;"SUBSCRIPT OUT-OF-RANGE" error
  429.     CMP.L    #0,d3             ;no negative inputs allowed
  430.     BLT    ErrorReport       ;report error
  431.     RTS
  432.     
  433. GetStringArg:
  434.     JSR    GetNextLibArg(a5)   ;get argument from BASIC
  435.  
  436. ParseStringArg:
  437.     MOVE.L    #13,d2              ;"TYPE MISMATCH" error preloaded
  438.     CMP.B    #2,d0               ;only string arguments allowed
  439.                                 ;  {d0 contains argument type}
  440.     BNE    ErrorReport         ;report error
  441.     MOVE.L    a2,a3               ;copy pointer into a3
  442.     JSR    FreeTempDesc(a5)    ;free string space
  443.     JSR    LoadStringDesc(a5)  ;on input a3 => string descriptor
  444.                                 ;on output a3 => string data
  445.                                 ;          d2 =  string length
  446. RTS
  447. ;**************************************************************************
  448.  
  449. CloseItUp:
  450.  
  451. ;------ Leave, but remain resident ----------------------------------------
  452. ;       ~~~~~~~~~~~~~~~~~~~~~~~~~~
  453.     MOVE.L    #1,d0  ;exit with 0 in d0 makes code purgeable
  454.                    ;          1 in d0 makes code resident
  455.     RTS
  456.  
  457. ;**************************************************************************
  458.  
  459. ;-----Subroutine for generating a STR255 Exception Filename ---------------
  460.  
  461. GenerateFilename:
  462.     MOVE.L    a2,a3            ;input needs to be in a3
  463.     JSR    LoadStringDesc(a5)    ;move string descriptor into regs.
  464.     MOVE.L    a3,a0            ;set up regs for _BlockMove
  465.     LEA    ExceptionFile,a1
  466.     MOVE.B    d2,(a1)+        ;push length byte
  467.     MOVE.L    d2,d0
  468.  
  469. ;PROCEDURE BlockMove (sourcePtr,destPtr:Ptr; byteCount:Size);    
  470.     _BlockMove
  471.     
  472.     LEA    ExceptionFile,a0    ;set up regs for _CmpString
  473.     LEA    PhonemeExFile,a1
  474.     MOVE.L    #$00080008,d0
  475.  
  476. ;FUNCTION EqualString (aStr,bStr:Str255; caseSens,diacSens:BOOLEAN):BOOLEAN;    
  477.     _CmpString
  478.  
  479.     BNE    ClearFlag        ;if strings not equal then ClearFlag
  480.     
  481. SetFlag:
  482.     LEA    PhonemeFlag,a1        ;set flag = phoneme input
  483.     ST    (a1)
  484.     RTS        
  485.  
  486. ClearFlag:
  487.     LEA    PhonemeFlag,a1        ;clear flag = English input
  488.     CLR.B    (a1)
  489.     RTS
  490.  
  491. ;**************************************************************************
  492.  
  493. ;-----Subroutine for error handling ---------------------------------------
  494.  
  495. ErrorReport:
  496.     BSR    QuitSpeech
  497.     JSR    BasicError(a5)
  498.     
  499. ;**************************************************************************
  500. ;**************************************************************************
  501.  
  502. ;-----------STATIC DATA----------------------------------------------------
  503. InfoString    DC.B    'DHIHS IHZ SPIY4CH LIH1B THRIY4 POYNT ZIY4ROW.'    
  504.         DC.B    'RIH1TEHN BAY KEHVIH1N WAYLIY2 AHV AE2PUL DEY5TUN.#'
  505.     .ALIGN    4
  506. theSpeech    DC.L    0         ;storage for handle to speech globals
  507. StringBuf    DC.L    0          ;buffer for string variable
  508. phHandle    DC.L    0         ;storage for handle to phonetic codes
  509. ExceptionFile    DCB.B    256,0       ;storage for exception filename
  510. PhonemeExFile    DC.B    8
  511.         DC.B    'noReader' ;'noReader' filename        
  512. PhonemeFlag    DC.B    0       ;test flag ≠0:Phoneme input
  513.                                    ;          =0:English input
  514.  
  515. END